0 REM LINE CALC (7/85)                :
1 :
2 REM 2 STATEMENTS,  1 FUNCTION
3 :
4 REM KEYWORD CHARACTERS: 13
5 :
6 REM KEYWORD   ROUTINE   LINE   SER #
7 REM S/JUMP    JUM       8846    130
8 REM S/CALL    CAL       8870    131
9 REM F/LINE(   LINE      8902    132
10 :
11 REM U/USFP (2620/006)
12 :
13 REM ================================
14 :
136 .ASC "JUM[208]CAL[204]"
621 .ASC "LINE": .BYTE $A8
1136 .WORD JUM-1,CAL-1
1621 .WORD LINE-1
2620 USFP LDX #0
2622 STX $0D
2624 STA $62
2626 STY $63
2628 LDX #$90
2630 SEC
2632 JMP $BC49
2634 ;
8846 JUM JSR $B08B
8848 BIT $0E
8850 BPL JM1
8852 LDY #0
8854 LDA ($47),Y
8856 STA $60
8858 INY
8860 LDA ($47),Y
8862 SEC
8864 JMP $A8C7
8866 JM1 JMP $AD99
8868 ;
8870 CAL LDA #3
8872 JSR $A3FB
8874 LDA $7B
8876 PHA
8878 LDA $7A
8880 PHA
8882 LDA $3A
8884 PHA
8886 LDA $39
8888 PHA
8890 LDA #$8D
8892 PHA
8894 JSR $79
8896 JSR JUM
8898 JMP $A7AE
8900 ;
8902 LINE CMP #$89
8904 BNE LINE1
8906 JSR $73
8908 LINE1 LDA #2
8910 JSR $A3FB
8912 LDA $14
8914 PHA
8916 LDA $15
8918 PHA
8920 LDA $5F
8922 PHA
8924 LDA $60
8926 PHA
8928 JSR $AD8A
8930 JSR $B7F7
8932 LDA #0
8934 STA $61
8936 JSR $A613
8938 BCC LINE2
8940 LDY $5F
8942 LDA $60
8944 LINE2 JSR USFP
8946 PLA
8948 STA $60
8950 PLA
8952 STA $5F
8954 PLA
8956 STA $15
8958 PLA
8960 STA $14
8962 JMP $AEF7
8964 ;